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i AUTHOR: Bob Kushlis, CREATION DATE: September 8, 1979 


° 
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' 

‘ 
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i 
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i] 

. 

i] 

! 

: MODIFIED BY: 

! 1-001 = Original. DJS 12- rst dF This module was created by 
} extract ting the routine EDTS$SC INIT from module SCREEN. 
' 1-002 - Regular! headers. JBS 1 mare ~ 
ali Se 
{ 
t 
‘ 
i 
i] 
i 
' 
1! 
' 


81 
lor NOREYPAD mode 32 - SMB 11-Mar-1982 


' 1-005 - In 
!' 1-004 = Don't turn off autowrap. JBS 
! 1- 2 - Make sure we ore.tn in GO. JBS 2 <may-198 
6 - "Send edit 1-0 ¥| ohare, sending an SI means we are 
ding a control 0. T's qusenet te test procedures 
nnot handle control O's. JBS 
-007 - Send ‘exit hotd=screen node to a sun 5g2 JBS 30-Aug-1982 
= New screen upde e logic. JBS 13- 
- Do more initial Set tie of screen n upgate ty ngeebal ls. SMB 20-Sep-1982 
- - Set up an EOB screen pointer. 
- Remove an unreferenced external yas 
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EDTSSCRINIT = initialize for screen mode 1b-s Sep-1984 t 9}: 3! 38 VAX-11 Bliss-32 V4.0-74 Page 1 
14-Sep-1984 DISKSVMSMASTER: tt T.SRCISCRINIT.BLI;1 (1) 
3 1 1 aut LE ‘EDTSSCRINIT = initialize for screen mode' 
3 § § ULE EDTSSCRINIT ! Initialize for screen mode 
; ? gDENT = 'v04-000' ! File: SCRINIT.BLI Edit: REM1021 
by = 
3 5 005 : BEGIN 
: ? 0 ? : leuntnenencenntencenctentenseeerenteeerertertertenterenennentnntrennententees 
o .* w 
g y 0 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
. Bi 1 !* DIGITAL EQUIPMENT _GORPORATION, MAYNARD, MASSACHUSETTS. * 
3 \} \} : re ALL RIGHTS RESERV * 
J . ® 
3 ig ig 1 !e Tuts SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
s % 014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
5s 35 015 1 !* INCLUSION OF THE ABOVE gdh NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 1 p18 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
£7. | 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: Ys id: } :* TRANSFERRED. * 
3 'f ® 
3 0 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 ¢ 4 ¢ ! ? CORPORATION. * 
o . * 
; 4 8 4 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
$ 5 + ? : » SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; 3 0097 1 ie 
3 0099 ! Vee RRR RERAAAAAAAAAAA EEA A ARATE AAA AAA 
1 
; 30 1 
: 1 0031 1 44 
3 § e ; : ! FACILITY: EDT == The DEC Standard Editor 
: 4 ie i ABSTRACT: 
: $ 4 $ ' This module initializes the screen for change mode editing. 
: : O38 ' i ENVIRONMENT: Runs at any access mode - AST reentrant 
: 40 0 1 
: re 1 ' 
: rk $j 
: 8644 4 ' 
; 1 
3 1 
; 1 
3 1 
: 2 1 
; 1 
5 1 
3 1 
3 1 
3 1 
3 1 
: 1 
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: 38 : 1! 1-012 - Fax the the cursor to the upper left corner and B- 50-1968 

: 1 | 1-013 - @ way memory is added to the free Lis =0¢t-1982 

; 60 1 i 1-014 - bon! t fool with t screen ate, base. JBS 29-0 

; 6) 1 : 1-015 - Make sure the scroll ing. region is really set, "583 1 Pod prt 

: 6¢ 1! 1- 1 - Force a {tones positioning sequence to “‘home'’. SMB 14-Feb-1983 

. @ 1 ! 1-017 = Do miscellaneous »secuse first, to be s .. ternin lL will respond 

; 664 1! correctl to subsequent se eRts aos gb! 

:- @& 5 1! 1- 18 ~ fet, ed ¥ = vit83° n ,cese this $8 W710 BS “ee! TADS 

; $8 B98 1! 1-019 - If -" e sure it i3 n replace geet, 5 35. vibe, Ct Naa 
; §$ 067 1! 1- $0 - Add. DeesTR, ‘J case this is an advanced terminal. 

; 6&8 8 1 ! 1-021 = Enhanced support of DECSTR to prevent its pete ae & VT100s or any 
3 9 '5 34 ,: other terminal ay according to EDT$$G_DEC_CRT, should not recieve 
; 720 070 1! it. REM 29-Feb-1984 

: ] fa 1 le 

: Ta 072 #1 
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SCRINIT = initialize for screen mode 
arations 


1 RSBTTL ‘Declarations’ 
i TABLE OF CONTENTS: 


i 
REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 


EDTSSSC_INIT : NOVALUE; 


INCLUDE FILES: 

REQUIRE 'EDTSRC:EDTREQ'; 
t 

MACROS: 


i¢ 


state that EDT expects. 
i <BLF /NOFORMAT> 


MACRO 
KEYPAD_MODE_STRING = 


VT100_SETUP STRING = ZSTRING ( 
ZCHAR (AS oy 


Annnw 
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1828 


i The following macros specify the strings used to initialize the terminals. 
! initialization more characters are sen 


to the 


XSTRING (XZCHAR (ASC_K_ESC), 
NOKEYPAD_MODE_STRING = STRING (XCHAR (ASC_K 


1 
ep 1986 12:26:26 DISKSUMSRASTERS EDT. 


. rt Page 3 
T.SRCIJSCRINIT.BLI;1 (2) 


After this 
terminal to complete putting it in the 


"s") %, 
ESC), ">") &, 


VT100 initialization 

String terminator, i.. case we are iad ° REGIS string 

ANSI mode (in case we ore in VT52 mod 

origin mode = absolut 

video attributes = a al 

select special graphics for G1 (leave GO as set up by user 


! Application keypad mode 
! Numeric keypad mode 


VT200 initialization for 8 bit mode 

String terminator, in case we org in in 2 REGIS string 

ANSI _mode (in case we are in VT5 

DECSIR. to set ‘future’ features to Oe sal state 

origi n mode = absolute 

pete attri utes = norm 

select special graphics. Sas G1 ‘leave GO as set up by user 


VT200 initialization for 7 bit 
String terminator, in case we ore ¥* a REGIS string 

ANSI gees (in case we are in VT52 mode 

DECSTR, set ' ‘future’ features to normal state 

origin. node's absolute 

video attributes = normal 

select special graphics for Gi (leave GO as set up by user 
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TSSCRINIT = initialize for screen mode 
clarations 
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VAX-11 Bliss-32 v4. 
DISKSVMSMASTER: CEDT 


! vT52 initialization 
! Fxit hold-screen mode 


OSRCISCRINIT. BLI; % 
vT52 aoe aha inte = * 


' <BLF /FORMAT> 
EQUATED SYMBOLS: 


D 
KEYPAD MODE = 


ERA 
KEYPAD MODE_LEN = X%CHARCOUNT (KEYPAD _MODE_STRING) 
Y E_LEN = XCHARCOUNT 100.10 MODE STRING), 

o-SETUP UN = X%CHARCO _S G) 


STRING), 
120056173 Tort SeTUP_ STRING), 
"" “ZCHARCCUNT (ise. SETUP_ 


i EXTERNAL REFERENCES: 
i In the routine 
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INIT = initialize for screen mode 16-Sep-1984 01:34:38 VAX-11 - 
INIT = initialize for screen mode 127868-1 382 9:30:38 DISKSVMSMASTE 


SSBTTL ‘EDTSSSC_INIT = initialize for screen mode’ 
GLOBAL ROUTINE EDTSS$SC_INIT ! Initialize for screen mode 

: NOVALUE = 
14 
! FUNCTIONAL DESCRIPTION: 
nitialize for screen mode. The scrolling region is set up for VT100's 
noJkeypad mode is set, and the globals pointing to the screen information 
structure are initialized to zero. 
i FORMAL PARAMETERS: 
NONE 


i IMPLICIT INPUTS: 


i IMPLICIT OUTPUTS: 


EDTS$G_REVID 
EDT$$G_TOP_SCREG 


i ROUTINE VALUE: 


NONE 
i SIDE EFFECTS: 

NONE 

BEGIN 

exTee ROUTINE 
EDTSSSC_POSABS, ! Position the cursor 
EDTSS$SC_SETSCLLREG ' Set the scrolling region 
EDTSSFMT_LIT : NOVALUE ' Output a string without interpretation 
EDT$STI_ENTERCHM : NOVALUE, ! Set up terminal for change mode 
EDTSSSC_SETWID ! Set the width on a VT100 
EDT$$SC_REP_MODE; ! Put the screen in replace (not insert) mode 

exe 
edt $9_dec crt ' Cell indicating class of terminal 
edtssq_e ght bit, i True if terminal in EIGHT_BIT mode 
EDT$$G_SCR_LAS, ! Number of screen Lines 
EDTS$$G_KPAD, ' Keypad activated? 
EDTS$G_TI_TYP, ! Terminal type. 


Bliss-32 V4.0- 
R 


Page 5 


0 reg a 
:CEDT.SRCISCRINIT.BLI;1 (3) 
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V4. shed a 
:CEOT.SRCIJSCRINIT.BLI;1 (3) 


erage 


32 
R 


perr 
mi 


ze for screen mode DISKSVMSMAS 
= screen is in reverse video 


t for screen mode 18-Sep-1984 9} 34:38 VAX-11 Blis 
1 
' 
! 


1 
' Top of the scrolling region 
Terminal width ie. 


‘+ 

! Inform the terminal 1/0 routines we are entering screen mode 

and set the scrolling region to text area. 

# EDTSSTI_ERTERCHM (); 

Set the terminal's parameters properly for EDT. 


IF (.edt$$g_ti_typ EQL term_vt100) 
THEN 


MEWN—OOONOUS wn 
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; BEGIN 

: 3 sELECTONE -edt$$q_dec_crt OF 

; 40 1] : edt$$fmt_lit (vtl00_setup, vt100_setup_len); 

; 4@ 0 IF (.edt$$g_eight_bit) THEN 

3 $7 8 edtS$$fmt_lit Tvt200_setup, vt200_setup_len) 

3 265 0 edrsstmt_Lit (vt200_7bit_setup, vt200_7bit_setup_.en); 
> 246 0. COTHERWISE) : asSert(0); 

° 47 08 > 

; 248 08 edt$$sc_rep_mode Q) 

; 249 08 END 

; 250 08 ELSE x 

; 331 08 EDTSSFMT_LIT (VT52_SETUP, VT52_SETUP_LEN); 

; 34 08 1+ 

; 30 4 H Set the terminal's width if it is a vT100. 

; 336 08 EDTS$SC_SETWID (.EDTS$G_TI_WID); 

F 433 o8 Set the scrolling region the way EDT wants it. 

: 366 BB EDTS$G_TOP_SCREG = 1; ! Make sure control sequence is issued 
; rt bas EDTSS$SC_SETSCLLREG (6, -EDTS$G_SCR_LNS); 

: re 08 i Force a cursor positioning sequence to “‘home'’. This may already have 

3 rf 08 : : been done for some terminals when the scrolling region or width was set. 
; 66 é , EDTSSSC_POsABS (0, 0); 

; $3 8 8 ! Either activate or deactivate the keypad. 

; 270 B40 ; 

: 4 1 IF (. EDTSS$G_KPAD) ! 

; 3 Bc8 9 EDTSSFMT_LIT (KEYPAD_MODE, KEYPAD_MODE_LEN) 

: 2 i EDTSSFMT_LIT (NOKEYPAD_MODE, NOKEYPAD_MODE_LEN); 

: eo? 5 EDTS$$G_REVID = 0; ! The terminal is not in reverse video 
; 278 0848 END; ! of routine EDTS$SC_INIT 
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EDTSSCRINIT EDTSSCRINIT = initialize for screen mode 1s 4 4:38 VAX-11 iss-32 V 
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-TITLE EDTSSCRINIT EDT$SCRINIT - initialize for screen 
- IDENT \Vv04-000\ 
«PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


00 .BLKB ; 
3E 1B 00004 P.AAB: ASCII <27>\>\ F ; 
18 60 5B 18 6C 36 3F SB 18 3C 18 3f 1B 8 P.AAC ASCII | tet tacit cet catalase : 3 
a a caeeel PO , : 
98 6C 36 3F 98 70 21 9B 3C 1B SC 1B O0018 P.AAD: .ASCII <272<92>< 7>\<\<155>\ !p\<155>\261L\<155> : 3 
9 29 1B 6D 00024 <ASCII = \m\<27>\) : ; 
6C 36 3F 5B 18 70 21 5B 18 3C 18 SC 1B 000 8 P.AAE: ASCII <31><92>¢ 7>\<\<27>\L! p\<27>\C26L\ : ; 
30 29 18 6D 58 1B 000 “ASCII <27>\Em\<27>\)0\ ; : 
00038 -BLKB ; 
5C 1B QO003C P.AAF: .ASCII <27><92> : ‘ 
KEYPAD_MODE= P.AAA é 
NOKEYPAD_MODE= P.AAB : 
VT100_SETUP= P.AAC 3 
vt 007SETUP= P. AAD ; 
T2007 eit =SETUP= PAE ; 
T52_SETU P.AAF 3 
vEXTRN EDTS$SC_POSABS, EDTS$$SC_SETSCLLREG ; 
EXTRN EDTSSFMT_LIT, EDT$$TI_ENTERCHM : 
EXTRN EDTS$$SC_SETWID, EDTS$SC_REP_MODE ; 
-EXTRN EDT$$G_DEC_CRT, EDT$$G_EIGHT_BIT ; 
EXTRN EDTS$$G-SCR-LNS, EDT$$G-KPAD : 
EXTRN EDT$$G-T1 TYP, EDTS$$G_REVID ; 
SEXTRN EDTS$$G-TOP SC ; 
XTRN EDTS$$G-TI_QID, EDTSSINTER_ERR : 
000c 00000 .ENTRY EDTSS$SC_INIT, Save R2,R3 : 0737 : 
53 000000006 00 9€E 00002 MOVAB EDTSSFMT_LIT. R3 : : 
52 BE AF 9E 00009 MOVAB VT100_SETUP, R2 : : 
000000006 00 00 FB 0000D CALLS #0, EDT$$TI_ENTERCHM : 0800 ; 
02 000000006 00 D1 00014 CMPL EDTSS$G_TI_TYP, #2 > 0805 ; 
50 000000006 00 06 O01 ROVE —_EDTS$G_DEC_CRT, RO ; 980 
01 i D § 4 CMPL = RO, ii- - : $898 ; 
6 12 7 NEQ 1$ 5 3: 
F DD 9 PUSHL #15 : | ; 
0D 8 PUSHL Re : ; 
18 11 D BRB 5 ; 
02 3 if F 1$: CMPL RO. #2 + 0811 
07 000000006 00 € BLBC EDT$$G_EIGHT_BIT. 2$ : 081 
1 Bo B PUSHL aig : 081 
10 Ae OF PUSHAB yt 00_SETUP ; 
05 11 BRB & ; 
1 po 42 2%: PUSHL #19 > 0815 
20 A2 9F 0004 PUSHAB VT200_7BIT_SETUP ; 


b-sep-1984 91:36:38 VAX=11 Bliss-32_ V4.0-74 fage 


Epyssceimit poTesceimty - nag 1 | for screen mode 8 
V04- EDTSSSC_INIT = initialize for screen mode 4 DISKSVMSMASTER: CEDT.SRCJSCRINIT.BLI; (3) 


; Routine Size: 173 bytes, Routine Base: _EDTSCODE + O03E 


; 0849 1 
; 280 0850 1 !<BLF/PAGE 


63 j Fe 3$: CALLS #2, EDTSSFMT_LIT : 

1 BRB 5 $ 

900000006 009 0 FB 4$: CALLS #0, EDTS$SINTER_ERR ; 
G re 5$: CALLS #0, EDT$S$SC_REP_MODE ; 

11 000 BRB fs ; 

po e : 

; 34 «OA 44 } 3 

000000006 DD 0 ; 

000000006 1 FB CALLS #1, E SETWID ; 
000000006 1 D0 000 OVL so E _TOP_SCREG 0830 ; 
000000006 90 bp PUSHL EDES$6_SCR-LNS 0831 ; 

000000006 00 05 FB 00 CALLS #2, EDTS$SC_SETSCLLREG co : 
000000006 00 ; rs 00 CALLS #2, EDT$$SC_POSABS : 
07 000000006 E 00 BLBC EDTS$G_KPAD; 8$ 0841 ; 

DD 000 PUSHL @# 0843 ; 

F8 A 9F 000 PUSHAB KEYPAD_MODE : 

05 11 0009C BRB 9$ ; 

08 DD OO09E 8$: PUSHL #2 0845 ; 

FC A2 9F OOOAO PUSHAB NOKEYPAD_MODE ; 

3 02 FB OO0A3 9$ CALLS #2, EDTSSFMT_LIT ; 

000000006 00 D4 0006 CLRL EDT$$G_REVID 0847 ; 

04 OOOAC RET 0848 : 
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ERISSGRIMIT. —DTEGCRINLT.~ infeta ze for seremn node, JESEDWIRRE QU:34:58 WANG LY BLL SHEE2 Y4GOC74S eunrr oust” cad 
388 O88 } END ! of module EDTSSCRINIT 
84 § 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
-EDTSCODi 235 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
ouenenee Symbols -oo----- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255SDUA gs EDT.SRCJEDT.L32;1 377 & 1 40 00:00.2 
255$DUA28: LEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 


COMMAND QUALIFIERS 
FL ISS/EHE CROCE FELD. INET EM, OPT INE EE) SMOTRACERACK/L L904, 188 1SCRINET SOR JORIS: SCHINET MSRC$:SCRINIT.BLI/UPDATE=(ENH$:SCRINIT 


; Size: 173 co 62 data bytes 
; Run Time 00 

; alae Time: 0 H 
; Lines/CPU Min: 
: pononee/ va) 133 
: pemety Used: 89 page 
; Compi ation. Complete 


«woah | 
VY Oo—-@sta 


Be Se Pe ee Ge Se Se Se Ge Ge Fe Ge Se Ge Se Ge Se Se Ge Ge Se Se Se Se Se Se Se Seo Se Se Se Se Seas Fe Se Se Se Ge ae 2 ee ee 


mee a a = ts = 4s § SS os > Ss as Se SS 2 Ss Ss — 4 GH 


Da) Sacvae v2" 


DIGITAL EQUIPMENT CORPORATION | 
CONFIDENTIAL AND PROPRIETARY 


